home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / doc / manual / volume1 / musub.c < prev    next >
Encoding:
Text File  |  1990-09-20  |  856 b   |  24 lines
  1. io_init(rp);      /* initialisation */
  2. io_wprm(&prm,rp); /* write management parameters */
  3. io_wrq(&q,rp);    /* per message parameters */
  4.  
  5. ap = ad_originator;             /* originator */
  6. io_wadr(ap,AD_ORIGINATOR,rp);
  7. ap = ad_recipient;
  8. do {                            /* list of recipients */
  9.     io_wadr(ap,AD_RECIPIENT,rp);
  10.     ap = ap->ad_next;
  11.     } while ( ap != NULL );
  12. io_adend(rp);                   /* terminate address list */
  13.  
  14. if((p=next_arg("body",argv)) != NULL) {
  15.     io_tinit(rp);               /* prepare for body part(s) */
  16.     do {
  17.         io_tpart(p,FALSE,rp);   /* prepare one body part */
  18.         loop_data(p);           /* transmit with io_tdata() */
  19.         io_tdend(rp);           /* end one file */
  20.     } while(p=next_arg("body",argv));
  21. }
  22. io_tend(rp));   /* complete message */
  23. io_end(type);   /* terminate session with submit */
  24.